home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 17 / CU Amiga Magazine's Super CD-ROM 17 (1997)(EMAP Images)(GB)[!][issue 1997-12].iso / CUCD / Programming / MUI / MCC_Time / Developer / Modula / txt / MCCTime.def next >
Encoding:
Modula Definition  |  1997-08-17  |  1.6 KB  |  79 lines
  1. DEFINITION MODULE MCCTime;
  2.  
  3. (*
  4. **
  5. ** Copyright © 1996-1997 Kai Hofmann. All rights reserved.
  6. ** Registered MUI custom class!
  7. **
  8. ** $VER: MCCTime.def 12.4 (17.08.97)
  9. **
  10. *)
  11.  
  12.   FROM SYSTEM      IMPORT ADDRESS,BYTE;
  13.   FROM UtilityD      IMPORT TagItemPtr;
  14.   FROM IntuitionD IMPORT ObjectPtr;
  15.  
  16.  
  17.   CONST
  18.     (*mcTime                = "Time.mcc";*)
  19.  
  20.     maTimeMidnightSecs            = 81EE0080H;
  21.     maTimeHour                = 81EE0081H;
  22.     maTimeMinute            = 81EE0082H;
  23.     maTimeSecond            = 81EE0083H;
  24.     maTimeMinHour            = 81EE0084H;
  25.     maTimeMinMinute            = 81EE0085H;
  26.     maTimeMinSecond            = 81EE0086H;
  27.     maTimeMaxHour            = 81EE0087H;
  28.     maTimeMaxMinute            = 81EE0088H;
  29.     maTimeMaxSecond            = 81EE0089H;
  30.     maTimeZoneMinute            = 81EE008BH;
  31.     maTimeNextDay            = 81EE008CH;
  32.     maTimePrevDay            = 81EE008DH;
  33.     maTimeDaylightSaving        = 81EE008EH;
  34.     maTimeChangeHour            = 81EE008FH;
  35.     maTimeChangeDay            = 81EE0095H;
  36.  
  37.     mvTimeChangeDayNormal        = 0;
  38.     mvTimeChangeDayWinterToSummer    = 1;
  39.     mvTimeChangeDaySummerToWinter    = 2;
  40.  
  41.     mvTimeCompareLess            = -1;
  42.     mvTimeCompareEqual            =  0;
  43.     mvTimeCompareGreater        =  1;
  44.  
  45.     mmTimeIncrease            = 81EE0092H;
  46.     mmTimeDecrease            = 81EE0093H;
  47.     mmTimeSetCurrent            = 81EE0094H;
  48.     mmTimeCompare            = 81EE0096H;
  49.  
  50.  
  51.   TYPE
  52.     mpTimeIncrease =
  53.       RECORD
  54.         MethodID    : LONGCARD;
  55.         seconds        : LONGCARD;
  56.       END;
  57.  
  58.     mpTimeDecrease =
  59.       RECORD
  60.         MethodID    : LONGCARD;
  61.         seconds        : LONGCARD;
  62.       END;
  63.  
  64.     mpTimeSetCurrent =
  65.       RECORD
  66.         MethodID    : LONGCARD;
  67.       END;
  68.  
  69.     mpTimeCompare =
  70.       RECORD
  71.         MethodID    : LONGCARD;
  72.         obj        : ObjectPtr;
  73.       END;
  74.  
  75.  
  76.   (*PROCEDURE TimeObject(tags : TagItemPtr) : ADDRESS;*)
  77.  
  78. END MCCTime.
  79.